unit KrClasses;

interface

uses Classes;

type

TMetaData = Class
private
  fListaDimNome :TStrings;
  fListaDimTipo :TStrings;
  fListaMedNome :TStrings;
  fListaMedTipo :TStrings;
public
  constructor Create;
  destructor  Destroy; override;

  property  ListaDimNome :TStrings read fListaDimNome write fListaDimNome;
  property  ListaDimTipo :TStrings read fListaDimTipo write fListaDimTipo;
  property  ListaMedNome :TStrings read fListaMedNome write fListaMedNome;
  property  ListaMedTipo :TStrings read fListaMedTipo write fListaMedTipo;
end;

TProjeto = Class
private
  fNomeProjeto:String;
  fPastaSolucao:String;
  fMetaData:TMetadata;
public
  constructor Create;
  destructor  Destroy; override;

  property  NomeProjeto :String read fNomeProjeto write fNomeProjeto;
  property  PastaSolucao :String read fPastaSolucao write fPastaSolucao;
  property  MetaData :TMetadata read fMetaData write fMetaData;

end;

TComMysql = Class
private
public
end;

implementation

{ TMetaData }

constructor TMetaData.Create;
begin
  ListaDimNome := TStringList.Create;
  ListaDimTipo := TStringList.Create;
  ListaMedNome := TStringList.Create;
  ListaMedTipo := TStringList.Create;
end;

destructor TMetaData.Destroy;
begin
  inherited;
  ListaDimNome.Free;
  ListaDimTipo.Free;
  ListaMedNome.Free;
  ListaMedTipo.Free;
end;

{ TProjeto }

constructor TProjeto.Create;
begin
//
end;

destructor TProjeto.Destroy;
begin
  //
  inherited;
end;

end.
 